home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / For_ScanQuix / ImageEngineerV3.x / ARexx / ScanImage.rexx
Encoding:
OS/2 REXX Batch file  |  1999-03-16  |  986 b   |  55 lines
  1. /* $VER: ScanImage.rexx 1.0 (03.07.96) for ImageEngineer V3.0 © by Jochen Grus */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. address 'IMAGEENGINEER'
  6.  
  7. options failat 25     /* ScanToDisk returns 0 or 20 */
  8.  
  9.  
  10. ram:ScanImage
  11.  
  12. ok=1
  13. call SCAN()           /* Scans the image into a temporary file */
  14. call IMPORTGRAPHIC()  /* Loads Image into ImageEngineer */
  15. call DELETEFILE()     /* Removes temporary image file */
  16.  
  17. EXIT
  18.  
  19.  
  20.  
  21. SCAN:
  22. /* Scans the image into a temporary file using the program "ScanToDisk". */
  23.   if not 1=open('path','ENV:ScanQuix/Path','READ') then do
  24.     ok=0
  25.     return
  26.   end
  27.  
  28.   pragma('DIRECTORY',READLN('path'))
  29.   address command 'ScanQuix3/ScanToDisk FILE="Ram:ScanImage" TRUECOLOR NOICONS NOGUI'
  30.   if RC>=5 then do
  31.     ok=0
  32.     return
  33.   end
  34.  
  35. return
  36.  
  37.  
  38.  
  39. IMPORTGRAPHIC:
  40. /* Loads the image into ImageEngineer */
  41.   if ok=0 then
  42.     return
  43.  
  44.   'OPEN Ram:ScanImage COLOUR'
  45.    MyProject=Result
  46. return
  47.  
  48.  
  49.  
  50. DELETEFILE:
  51. /* removes temporary file */
  52.   address command 'delete ram:ScanImage'
  53.   IE_TO_Front
  54. return
  55.